home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / kingdom.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  5.5 KB  |  222 lines
  1. 10  FOR I=1 TO 10:PRINT:NEXT I
  2. 20  PRINT TAB(20);"*** KINGDOM ***":FOR I=1 TO 10:PRINT:NEXT I
  3. 30  N5=8:N4=8
  4. 380  PRINT "YOUR GOAL: TO COMPLETE YOUR ";N4;" YEAR TERM."
  5. 390  PRINT "GOOD LUCK<UNK! {0007}><UNK! {0007}>"
  6. 400  M=INT(70000+(RND*1000)-(RND*1000))
  7. 410  P=INT(500 +(RND*10)-(RND*10))
  8. 420  L=2000
  9. 430  W=0:X2=0:E0=0:X1=0:E1=0:S9=0:S0=0:M5=0:S1=0
  10. 440  D1=INT(P/3)
  11. 450  L1=INT((RND*5)+10)
  12. 460  L0=INT(RND*10+95)
  13. 470  GOSUB 2220
  14. 480  PRINT "YOU HAVE ";M;" RALLODS, ";
  15. 490  PRINT P;" COUNTRYMEN,";
  16. 500  IF W=0 THEN 520
  17. 510  PRINT W;" FOREIGN WORKERS,";
  18. 520  PRINT " AND ";L;" SQ. MILES OF LAND."
  19. 530  PRINT "THIS YEAR INDUSTRY WILL BUY LAND FOR ";L0;" RALLODS/SQ. MILE"
  20. 540  PRINT "LAND CURRENTLY COSTS ";L1;" RALLODS/SQ. MILE TO PLANT"
  21. 550  IF S1=0 THEN 570
  22. 560  PRINT "POLLUTION LEVEL IS ";S1;" UNITS."
  23. 570  GOSUB 2220
  24. 580  INPUT"HOW MANY SQ. MILES TO SELL TO INDUSTRY ";L2
  25. 600  IF L2<0 THEN 580
  26. 610  IF L2<(L-1000) THEN 680
  27. 620  PRINT "  THINK AGAIN. YOU'VE ONLY ";L-1000;" SQ. MILES OF FARM LAND"
  28. 630  IF X<>1 THEN 580
  29. 640  PRINT "(FOREIGN INDUSTRY NOT INTERESTED IN FOREST LAND BECAUSE"
  30. 650  PRINT "OF GREATER DEVELOPMENT COST)"
  31. 660  X1=1
  32. 670  GOTO 580
  33. 680  M=INT(M+L2*L0)
  34. 690  L=INT(L-L2)
  35. 700  X9=INT(44*(2000-L))
  36. 710  M2=0
  37. 720  M3=0
  38. 730  M4=0
  39. 740  INPUT"HOW MANY RALLODS TO DISTRIBUTE TO YOUR COUNTRYMEN ";M1
  40. 770  IF M1<0 THEN 740
  41. 780  IF M1<=M THEN 810
  42. 790  GOSUB 2250
  43. 800  GOTO 740
  44. 810  M=INT(M-M1)
  45. 820  IF M=0 THEN 1170
  46. 830  INPUT"HOW MANY SQ. MILES TO PLANT ";L3
  47. 850  IF L3<0 THEN 830
  48. 860  IF L3<=P*2 THEN 890
  49. 870  PRINT "EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES":GOTO 950
  50. 890  IF L3<=L-1000 THEN 920
  51. 900  PRINT "ONLY GOT ";L-1000;" SQ. MILES OF FARM LAND."
  52. 910  GOTO 950
  53. 920  M4=INT(L3*L1)
  54. 930  IF M4<=M THEN 990
  55. 940  GOSUB 2250
  56. 950  PRINT "YOU CAN AFFORD ";INT(M/L1);
  57. 960  PRINT " AND HAVE LABOR FOR ";P*2;
  58. 970  PRINT " AND HAVE ";L-1000;" SQ. MILES":GOTO 830
  59. 990  M=INT(M-M4)
  60. 1000  IF M=0 THEN 1170
  61. 1010  INPUT"HOW MUCH TO SPEND FOR EDUCATION ";M2
  62. 1030  IF M2<0 THEN 1010
  63. 1040  IF M2<M THEN 1070
  64. 1050  GOSUB 2250
  65. 1060  GOTO 1010
  66. 1070  M=INT(M-M2)
  67. 1080  IF M=0 THEN 1170
  68. 1090  IF L=2000 THEN 1170
  69. 1100  INPUT"HOW MUCH TO SPEND TO COMBAT POLLUTION ";M3
  70. 1120  IF M3<0 THEN 1100
  71. 1130  IF M3<=M THEN 1160
  72. 1140  GOSUB 2250
  73. 1150  GOTO 1100
  74. 1160  M=INT(M-M3)
  75. 1170  GOSUB 2220
  76. 1180  D0=0
  77. 1190  E2=M2/P
  78. 1200  D2=INT(P-M1/100)
  79. 1210  IF D2<=0 THEN 1240
  80. 1220  D0=D2
  81. 1230  PRINT  D2;" COUNTRYMEN DIED OF STARVATION."
  82. 1240  D3=INT((S1/100000)*(0.1+0.4*RND)*P)
  83. 1250  IF D3<=0 THEN 1280
  84. 1260  PRINT  D3;" COUNTRYMEN DIED OF EXCESS POLLUTION."
  85. 1270  D0=D0+D3
  86. 1280  IF D0<=0THEN 1400
  87. 1290  F=D0*9
  88. 1300  PRINT "YOU WERE FORCE TO SPEND ";F;" RALLODS FOR FUNERAL EXPENSES"
  89. 1310  M=INT(M-F)
  90. 1320  IF M<=0 THEN 1400
  91. 1330  PRINT "INSUFFICIENT RESOURCES FORCED SALE OF LAND."
  92. 1340  T0=-INT((M-L0+1)/L0)
  93. 1350  L=L-T0
  94. 1360  IF L>=1000 THEN 1390
  95. 1370  PRINT "NOT ENOUGH LAND TO SELL"
  96. 1380  GOTO 2270
  97. 1390  M=M+T0*L0
  98. 1400  IF D0>200 THEN 2300
  99. 1410  P=P-D0
  100. 1420  D1=D1-D0
  101. 1430  IF D1<0 THEN 2410
  102. 1440  IF D2<=2 THEN 1460
  103. 1450  IF M>500 THEN 2520
  104. 1460  IF L2=0 THEN 1520
  105. 1470  T0=INT(L2+L2*RND*2)
  106. 1480  IF W=0 THEN 1500
  107. 1490  T0=INT(T0+0.1*W)
  108. 1500  PRINT  T0;" WORKERS CAME TO THE ISLAND AND"
  109. 1510  W=W+T0
  110. 1520  T0=INT(((500-P)/10-D3/3-D2/5)*0.75*(1+RND))
  111. 1530  PRINT  ABS(T0);" COUNTRYMEN ";
  112. 1540  IF T0<0 THEN 1570
  113. 1550  PRINT "CAME TO ";
  114. 1560  GOTO 1580
  115. 1570  PRINT "LEFT ";
  116. 1580  PRINT " THE ISLAND."
  117. 1590  P=P+T0
  118. 1600  IF P<W THEN 2480
  119. 1610  T0=0
  120. 1620  IF L=2000 THEN 1680
  121. 1630  T0=INT((S1/100000)*L3)
  122. 1640  IF T0<=L3 THEN 1660
  123. 1650  T0=L3
  124. 1660  IF T0=0 THEN 1680
  125. 1670  PRINT "OF ";L3;" SQ. MILES PLANTED, ";
  126. 1680  PRINT "YOU HARVESTED ";L3-T0;" SQ. MILES OF CROPS."
  127. 1690  IF T0=0 THEN 1760
  128. 1700  IF X2>=2 THEN 1760
  129. 1710  PRINT "  (DUE TO ";
  130. 1720  IF X2=0 THEN 1740
  131. 1730  PRINT "INCREASED ";
  132. 1740  PRINT "POLLUTION LEVEL)"
  133. 1750  X2=X2+1
  134. 1760  T1=INT((39+RND*20)*(1+0.25*(E0+E1)/20))
  135. 1770  PRINT "  MAKING ";INT(T1*(L3-T0));" RALLODS."
  136. 1780  M=M+INT(T1*(L3-T0))
  137. 1790  E0=E1
  138. 1800  IF E2<=10 THEN 1820
  139. 1810  E2=10
  140. 1820  E1=E2
  141. 1830  T0=2000-L
  142. 1840  IF T0<2 THEN 2100
  143. 1850  IF T0<=26 THEN 1870
  144. 1860  T0=26
  145. 1870  T0=INT(T0*500*(0.52+0.5*RND))
  146. 1880  T1=S1/100000
  147. 1890  IF T1<=1 THEN 1910
  148. 1900  T1=1
  149. 1910  T1=T1*T0
  150. 1920  PRINT "YOU MADE ";INT(T0-T1);" RALLODS FROM TOURIST TRADE"
  151. 1930  M=M+INT(T0-T1)
  152. 1940  IF INT(T0-T1)<=M5 THEN 2080
  153. 1950  IF S1<=S9 THEN 2080
  154. 1960  PRINT "  DECREASE BECAUSE ";
  155. 1970  T2=RND*10
  156. 1980  ON (T2/2)+1 GOTO 1990,2010,2030,2050,2070,2070
  157. 1990  PRINT "FISH POPULATIN HAS DWINDLED DUE TO WATER POLLUTION"
  158. 2000  GOTO 2080
  159. 2010  PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION"
  160. 2020  GOTO 2080
  161. 2030  PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION"
  162. 2040  GOTO 2080
  163. 2050  PRINT "UNPLEASANT SMOG IS DISCOURIGING SUN BATHERS"
  164. 2060  GOTO 2080
  165. 2070  PRINT "HOTEL ARE LOOKING SHABBY DUE TO SMOG GRIT"
  166. 2080  M5=INT(T0-T1)
  167. 2090  S9=S1
  168. 2100  S2=(2000-L)^2-M3/0.44
  169. 2110  PRINT "YOU RECEIVED ";X9;" RALLODS FROM TAXES ON INDUSTRY"
  170. 2120  IF S2>=0 THEN 2170
  171. 2130  S1=INT(S1+S2/2)
  172. 2140  IF S1>=S0 THEN 2160
  173. 2150  S1=S0
  174. 2160  GOTO 2190
  175. 2170  S1=INT(S1+S2)
  176. 2180  S0=INT(S0+S2/10)
  177. 2190  N5=N5-1
  178. 2200  IF N5>0 THEN 450
  179. 2210  GOTO 2570
  180. 2220  PRINT :PRINT :RETURN
  181. 2250  PRINT "ONLY GOT ";M;" RALLODS LEFT!<UNK! {0007}><UNK! {0007}>":RETURN
  182. 2270  PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND YOU ARE NOW"
  183. 2280  PRINT "RESIDING IN PRISON."
  184. 2290  END
  185. 2300  PRINT D0;" COUNTRYMEN DIED IN ONE YEAR!<UNK! {0007}>!<UNK! {0007}>!<UNK! {0007}>!<UNK! {0007}>!<UNK! {0007}>"
  186. 2310  PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
  187. 2320  PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU"
  188. 2330  T0=INT(RND*2.01)+1
  189. 2340  ON T0 GOTO 2350,2370,2390
  190. 2350  PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT."
  191. 2360  END
  192. 2370  PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION."
  193. 2380  END
  194. 2390  PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK."
  195. 2400  END
  196. 2410  PRINT "OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU"
  197. 2420  PRINT "WERE ELECTED TO OFFICE.  THE PEOPLE (REMAINING)"
  198. 2430  PRINT "HATE YOUR GUTS."
  199. 2440  GOTO 2450
  200. 2450  IF RND<0.25 THEN 2270
  201. 2460  PRINT "YOU HAVE BEEN ASSASINATED."
  202. 2470  END
  203. 2480  PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER"
  204. 2490  PRINT "OF COUNTRYMEN. AS A MAJORITY THEY HAVE REVOLTED AND"
  205. 2500  PRINT "TAKEN OVER THE COUNTRY."
  206. 2510  GOTO 2450
  207. 2520  PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID NOT"
  208. 2530  PRINT "SPEND.  AS A RESULT SOME OF YOUR COUNTRYMEN DIED OF "
  209. 2540  PRINT "STARVATION.  THE PUBLIC IS ENRAGED AND YOU HAVE BEEN"
  210. 2550  PRINT "FORCED TO EITHER RESIGN OR COMMIT SUICIDE."
  211. 2560  END
  212. 2570  PRINT
  213. 2580  PRINT "CONGRATULATIONS"
  214. 2590  PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR ";N4;" YEAR TERM"
  215. 2600  PRINT "OF OFFICE.  YOU HAVE DONE SUCH A GOOD JOB THAT YOU MIGHT"
  216. 2610  PRINT "WANT TO RUN FOR ELECTION AGAIN THIS TIME."
  217. 2620  PRINT "TYPE 0 (ZERO) IF YOU DO";
  218. 2630  INPUT Q
  219. 2640  N5=N4
  220. 2650  IF Q=0 THEN 440
  221. 2660  END
  222.